---
title: "HTML Widgets Showcase"
params: 
  filename: "music.csv"
knit: (function(input_file, encoding) {
  out_dir <- 'docs';
  rmarkdown::render(input_file,
 encoding=encoding,
 output_file=file.path(dirname(input_file), out_dir, 'index.html'))})
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    source: embed
---

### Example project

Some text about the project

Row
-------------------------------------

### This the first row first column of a grid layout

```{r}
library(d3heatmap)
d3heatmap(mtcars, scale="column", colors="Blues")
```

### This is the first row second column of a grid layout
```{r}
library(pier)
data <- data.frame(label = c('Environment','Education','Business','Community'),
                   value = c(104,119,638,1250),
                   color = RColorBrewer::brewer.pal(4, 'Spectral'))

pier(data)
```